home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Programming / Languages / RA Folder / Subroutine⁄Params.ra < prev    next >
Encoding:
Text File  |  1986-10-17  |  635 b   |  44 lines  |  [THED/THTH]
  1. |
  2. |   RA™
  3. |
  4. |    Subroutine/Parameters
  5. |
  6. |   © 1986 COM~LINK & S.Koren
  7. |
  8. #M;
  9. "RA™ allows you to use subroutines!"
  10. "and allows you to pass parameters.!"
  11. "The title which first came up!"
  12. "uses several subroutines.!!" 
  13. #A;
  14. "Parameters:!"
  15. #B,"hi!",1,2,3;
  16. "THE END."
  17. $
  18. &A
  19. "Hit any key: " ?§ µ @`
  20. &B
  21. "Parameter test..." 1% 2% 3% 4% ++ 
  22. " " ! "=sum of parameters!!"
  23. #A; `
  24. |
  25. |  RA title routine
  26. |
  27. &M @ #L; 8 A: ( #N; A. 1 - A: A. 0 > ~ ) #L; #O; #P;`
  28.  
  29. &O
  30. 40 100 Ω
  31. "RA™"
  32. 60 45 Ω 
  33. "© 1986 COM~LINK & S.Koren" 
  34. 80 60 Ω
  35. "All rights reserved." `
  36.  
  37. &L
  38. 35 A: ("•" A. 1 - A: A. 0 > ~ ) "!"`
  39.  
  40. &N
  41. "•" 33 A: (" " A. 1 - A: A. 0 > ~ ) "•" "!"`
  42.  
  43. &P ?§ @ `
  44. $